home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / text / tex / amiweb2c.lha / AmiWeb2c-2.1 / texmf / dvips / texps.pro < prev   
Encoding:
Text File  |  1998-03-14  |  633 b   |  11 lines
  1. %!
  2. TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
  3. index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
  4. exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
  5. exch def dict begin Encoding{exch dup type /integertype ne{pop pop 1 sub
  6. dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
  7. ifelse}forall Metrics /Metrics currentdict end def[2 index currentdict
  8. end definefont 3 -1 roll makefont /setfont cvx]cvx def}def /ObliqueSlant
  9. {dup sin S cos div neg}B /SlantFont{4 index mul add}def /ExtendFont{3 -1
  10. roll mul exch}def /ReEncodeFont{/Encoding exch def}def end
  11.